YES 0.847 H-Termination proof of /home/matraf/haskell/eval_FullyBlown_Fast/Monad.hs
H-Termination of the given Haskell-Program with start terms could successfully be proven:



HASKELL
  ↳ LR

mainModule Monad
  ((liftM4 :: Monad a => (d  ->  b  ->  e  ->  c  ->  f ->  a d  ->  a b  ->  a e  ->  a c  ->  a f) :: Monad a => (d  ->  b  ->  e  ->  c  ->  f ->  a d  ->  a b  ->  a e  ->  a c  ->  a f)

module Monad where
  import qualified Maybe
import qualified Prelude

  liftM4 :: Monad c => (d  ->  f  ->  e  ->  a  ->  b ->  c d  ->  c f  ->  c e  ->  c a  ->  c b
liftM4 f m1 m2 m3 m4 m1 >>= (\x1 ->m2 >>= (\x2 ->m3 >>= (\x3 ->m4 >>= (\x4 ->return (f x1 x2 x3 x4)))))


module Maybe where
  import qualified Monad
import qualified Prelude



Lambda Reductions:
The following Lambda expression
\x4return (f x1 x2 x3 x4)

is transformed to
liftM40 f x1 x2 x3 x4 = return (f x1 x2 x3 x4)

The following Lambda expression
\x3m4 >>= liftM40 f x1 x2 x3

is transformed to
liftM41 m4 f x1 x2 x3 = m4 >>= liftM40 f x1 x2 x3

The following Lambda expression
\x2m3 >>= liftM41 m4 f x1 x2

is transformed to
liftM42 m3 m4 f x1 x2 = m3 >>= liftM41 m4 f x1 x2

The following Lambda expression
\x1m2 >>= liftM42 m3 m4 f x1

is transformed to
liftM43 m2 m3 m4 f x1 = m2 >>= liftM42 m3 m4 f x1



↳ HASKELL
  ↳ LR
HASKELL
      ↳ BR

mainModule Monad
  ((liftM4 :: Monad f => (a  ->  d  ->  b  ->  c  ->  e ->  f a  ->  f d  ->  f b  ->  f c  ->  f e) :: Monad f => (a  ->  d  ->  b  ->  c  ->  e ->  f a  ->  f d  ->  f b  ->  f c  ->  f e)

module Maybe where
  import qualified Monad
import qualified Prelude


module Monad where
  import qualified Maybe
import qualified Prelude

  liftM4 :: Monad f => (e  ->  a  ->  c  ->  b  ->  d ->  f e  ->  f a  ->  f c  ->  f b  ->  f d
liftM4 f m1 m2 m3 m4 m1 >>= liftM43 m2 m3 m4 f

  
liftM40 f x1 x2 x3 x4 return (f x1 x2 x3 x4)

  
liftM41 m4 f x1 x2 x3 m4 >>= liftM40 f x1 x2 x3

  
liftM42 m3 m4 f x1 x2 m3 >>= liftM41 m4 f x1 x2

  
liftM43 m2 m3 m4 f x1 m2 >>= liftM42 m3 m4 f x1



Replaced joker patterns by fresh variables and removed binding patterns.

↳ HASKELL
  ↳ LR
    ↳ HASKELL
      ↳ BR
HASKELL
          ↳ COR

mainModule Monad
  ((liftM4 :: Monad e => (d  ->  a  ->  c  ->  b  ->  f ->  e d  ->  e a  ->  e c  ->  e b  ->  e f) :: Monad e => (d  ->  a  ->  c  ->  b  ->  f ->  e d  ->  e a  ->  e c  ->  e b  ->  e f)

module Monad where
  import qualified Maybe
import qualified Prelude

  liftM4 :: Monad a => (b  ->  e  ->  c  ->  d  ->  f ->  a b  ->  a e  ->  a c  ->  a d  ->  a f
liftM4 f m1 m2 m3 m4 m1 >>= liftM43 m2 m3 m4 f

  
liftM40 f x1 x2 x3 x4 return (f x1 x2 x3 x4)

  
liftM41 m4 f x1 x2 x3 m4 >>= liftM40 f x1 x2 x3

  
liftM42 m3 m4 f x1 x2 m3 >>= liftM41 m4 f x1 x2

  
liftM43 m2 m3 m4 f x1 m2 >>= liftM42 m3 m4 f x1


module Maybe where
  import qualified Monad
import qualified Prelude



Cond Reductions:
The following Function with conditions
undefined 
 | False
 = undefined

is transformed to
undefined  = undefined1

undefined0 True = undefined

undefined1  = undefined0 False



↳ HASKELL
  ↳ LR
    ↳ HASKELL
      ↳ BR
        ↳ HASKELL
          ↳ COR
HASKELL
              ↳ Narrow

mainModule Monad
  (liftM4 :: Monad c => (d  ->  f  ->  b  ->  e  ->  a ->  c d  ->  c f  ->  c b  ->  c e  ->  c a)

module Maybe where
  import qualified Monad
import qualified Prelude


module Monad where
  import qualified Maybe
import qualified Prelude

  liftM4 :: Monad f => (b  ->  e  ->  c  ->  a  ->  d ->  f b  ->  f e  ->  f c  ->  f a  ->  f d
liftM4 f m1 m2 m3 m4 m1 >>= liftM43 m2 m3 m4 f

  
liftM40 f x1 x2 x3 x4 return (f x1 x2 x3 x4)

  
liftM41 m4 f x1 x2 x3 m4 >>= liftM40 f x1 x2 x3

  
liftM42 m3 m4 f x1 x2 m3 >>= liftM41 m4 f x1 x2

  
liftM43 m2 m3 m4 f x1 m2 >>= liftM42 m3 m4 f x1



Haskell To QDPs


↳ HASKELL
  ↳ LR
    ↳ HASKELL
      ↳ BR
        ↳ HASKELL
          ↳ COR
            ↳ HASKELL
              ↳ Narrow
                ↳ AND
QDP
                    ↳ QDPSizeChangeProof
                  ↳ QDP
                  ↳ QDP
                  ↳ QDP
                  ↳ QDP

Q DP problem:
The TRS P consists of the following rules:

new_psPs(:(vy100, vy101), vy8, h) → new_psPs(vy101, vy8, h)

R is empty.
Q is empty.
We have to consider all minimal (P,Q,R)-chains.
By using the subterm criterion [20] together with the size-change analysis [32] we have proven that there are no infinite chains for this DP problem.

From the DPs we obtained the following set of size-change graphs:



↳ HASKELL
  ↳ LR
    ↳ HASKELL
      ↳ BR
        ↳ HASKELL
          ↳ COR
            ↳ HASKELL
              ↳ Narrow
                ↳ AND
                  ↳ QDP
QDP
                    ↳ QDPSizeChangeProof
                  ↳ QDP
                  ↳ QDP
                  ↳ QDP

Q DP problem:
The TRS P consists of the following rules:

new_gtGtEs(:(vy70, vy71), vy3, vy40, vy50, vy60, h, ba, bb, bc, bd) → new_gtGtEs(vy71, vy3, vy40, vy50, vy60, h, ba, bb, bc, bd)

R is empty.
Q is empty.
We have to consider all minimal (P,Q,R)-chains.
By using the subterm criterion [20] together with the size-change analysis [32] we have proven that there are no infinite chains for this DP problem.

From the DPs we obtained the following set of size-change graphs:



↳ HASKELL
  ↳ LR
    ↳ HASKELL
      ↳ BR
        ↳ HASKELL
          ↳ COR
            ↳ HASKELL
              ↳ Narrow
                ↳ AND
                  ↳ QDP
                  ↳ QDP
QDP
                    ↳ QDPSizeChangeProof
                  ↳ QDP
                  ↳ QDP

Q DP problem:
The TRS P consists of the following rules:

new_gtGtEs0(:(vy60, vy61), vy7, vy3, vy40, vy50, h, ba, bb, bc, bd) → new_gtGtEs0(vy61, vy7, vy3, vy40, vy50, h, ba, bb, bc, bd)

R is empty.
Q is empty.
We have to consider all minimal (P,Q,R)-chains.
By using the subterm criterion [20] together with the size-change analysis [32] we have proven that there are no infinite chains for this DP problem.

From the DPs we obtained the following set of size-change graphs:



↳ HASKELL
  ↳ LR
    ↳ HASKELL
      ↳ BR
        ↳ HASKELL
          ↳ COR
            ↳ HASKELL
              ↳ Narrow
                ↳ AND
                  ↳ QDP
                  ↳ QDP
                  ↳ QDP
QDP
                    ↳ QDPSizeChangeProof
                  ↳ QDP

Q DP problem:
The TRS P consists of the following rules:

new_gtGtEs1(:(vy50, vy51), vy6, vy7, vy3, vy40, h, ba, bb, bc, bd) → new_gtGtEs1(vy51, vy6, vy7, vy3, vy40, h, ba, bb, bc, bd)

R is empty.
Q is empty.
We have to consider all minimal (P,Q,R)-chains.
By using the subterm criterion [20] together with the size-change analysis [32] we have proven that there are no infinite chains for this DP problem.

From the DPs we obtained the following set of size-change graphs:



↳ HASKELL
  ↳ LR
    ↳ HASKELL
      ↳ BR
        ↳ HASKELL
          ↳ COR
            ↳ HASKELL
              ↳ Narrow
                ↳ AND
                  ↳ QDP
                  ↳ QDP
                  ↳ QDP
                  ↳ QDP
QDP
                    ↳ QDPSizeChangeProof

Q DP problem:
The TRS P consists of the following rules:

new_gtGtEs2(:(vy40, vy41), vy5, vy6, vy7, vy3, h, ba, bb, bc, bd) → new_gtGtEs2(vy41, vy5, vy6, vy7, vy3, h, ba, bb, bc, bd)

R is empty.
Q is empty.
We have to consider all minimal (P,Q,R)-chains.
By using the subterm criterion [20] together with the size-change analysis [32] we have proven that there are no infinite chains for this DP problem.

From the DPs we obtained the following set of size-change graphs: